gusucode.com > 支持向量机工具箱 - LIBSVM OSU_SVM LS_SVM源码程序 > 支持向量机工具箱 - LIBSVM OSU_SVM LS_SVM\SVM_SteveGunn\svcerror.m

    function err = svcerror(trnX,trnY,tstX,tstY,ker,alpha,bias)
%SVCERROR Calculate SVC Error
%
%  Usage: err = svcerror(trnX,trnY,tstX,tstY,ker,alpha,bias)
%
%  Parameters: trnX   - Training inputs
%              trnY   - Training targets
%              tstX   - Test inputs
%              tstY   - Test targets
%              ker    - kernel function
%              beta   - Lagrange Multipliers
%              bias   - bias
%
%  Author: Steve Gunn (srg@ecs.soton.ac.uk)

  if (nargin ~= 7) % check correct number of arguments
    help svcerror
  else

    n = size(trnX,1);
    m = length(tstY);
    H = zeros(m,n);  
    for i=1:m
      for j=1:n
        H(i,j) = trnY(j)*svkernel(ker,tstX(i,:),trnX(j,:));
      end
    end
    predictedY = sign(H*alpha + bias);
    err = sum(predictedY ~= tstY);

  end